e (setq $PRINT-PROJECT-PERSON-SUMMARYS nil) ;e (setq $print-project-monthly nil) ;e (setq $print-project-gs nil) read (salary in dsk (pro he)) exe (arpa gs dsk (pro he)) read (arpa in dsk (pro he)) project ((10 80)(12 80)) (arpa out dsk (pro he))